home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / SMALLTAL / DRIVERS / CNTRLPAR.CLS next >
Text File  |  1988-12-16  |  460b  |  29 lines
  1.  
  2. ParamBlk subclass: #CntrlParamBlk
  3.   instanceVariableNames: ''
  4.   classVariableNames: ''
  5.   poolDictionaries: '' !
  6.  
  7. !CntrlParamBlk class methods !
  8.  
  9. sizeInBytes
  10.  
  11.     "Answer the size of a Macintosh CntrlParamBlk record: 150 bytes."
  12.  
  13.     ^ 150! !
  14.  
  15.  
  16. !CntrlParamBlk methods !
  17.  
  18. csCode: anInteger
  19.  
  20.     "Set the csCode field."
  21.  
  22.     self wordAtOffset: 26 put: anInteger!
  23.  
  24. ioCRefNum: anInteger
  25.  
  26.     "Set the ioCRefNum field."
  27.  
  28.     self wordAtOffset: 24 put: anInteger! !
  29.